function Policy=Policy_Solver(PP,SS,T,Profit,TAU,ir,w,UCoefp,State)

%% Sequential Optimizer
[Val,Vbar]  =   Fun_Vbar(PP,SS,T,Profit,TAU,ir,w,UCoefp,State,0);
%% Collect the Policy of Interest
Policy      =   Vbar.Policy;